﻿Imports System.Drawing

Public Class Lapicera

    Private _marca As String
    Public Property Marca() As String
        Get
            Return _marca
        End Get
        Set(ByVal value As String)
            _marca = value
        End Set
    End Property

    Private _color As Color
    Public Property Color() As Color
        Get
            Return _color
        End Get
        Set(ByVal value As Color)
            _color = value
        End Set
    End Property

    Private _porcentajeDeTinta As Integer
    Public Property PorcentajeDeTinta() As Integer
        Get
            Return _porcentajeDeTinta
        End Get
        Set(ByVal value As Integer)
            If (value < 0 Or value > 100) Then Throw New ArgumentOutOfRangeException("PorcentajeDeTinta", "El porcentaje debe ser positivo y menor o igual a 100")
            _porcentajeDeTinta = value
        End Set
    End Property

    Sub Escribir()
    End Sub

    Sub Tachar()
    End Sub

    Sub Recargar(ByVal porcentajeDeTinta As Integer)
    End Sub
End Class
